home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / 80X86 / NASM091.ZIP / MISC / NASM.SL < prev   
Encoding:
Text File  |  1996-11-18  |  8.7 KB  |  306 lines
  1. % This file defines a NASM editor mode for the JED editor.
  2. % JED's home page is http://space.mit.edu/~davis/jed.html.
  3. %
  4. % To install, copy this file into your JED_LIBRARY directory
  5. % (/usr/local/jed/lib or C:\JED\LIB or whatever), then add the
  6. % following lines to your .jedrc or jed.rc file:
  7. %   autoload("nasm_mode", "nasm");
  8. %   add_mode_for_extension("nasm", "asm");
  9. % (you can of course replace "asm" with whatever file extension
  10. % you like to use for your NASM source files).
  11.  
  12. variable Nasm_Instruction_Indent = 10;
  13. variable Nasm_Comment_Column = 33;
  14. variable Nasm_Comment_Space = 1;
  15.  
  16. variable nasm_kw_2 = strcat("ahalaxbhblbpbtbxchclcscxdbdddhdidldqdsdtdwdxes",
  17.                 "fsgsinjajbjcjejgjljojpjsjzorsispssto");
  18. variable nasm_kw_3 = strncat("a16a32aaaaadaamaasadcaddandbsfbsrbtcbtrbtscbw",
  19.                  "cdqclccldclicmccmpcr0cr2cr3cr4cwddaadasdecdiv",
  20.                  "dr0dr1dr2dr3dr6dr7eaxebpebxecxediedxequesiesp",
  21.                  "farfldfsthltincintjaejbejgejlejmpjnajnbjncjne",
  22.                  "jngjnljnojnpjnsjnzjpejpolarldslealeslfslgslsl",
  23.                  "lssltrmm0mm1mm2mm3mm4mm5mm6mm7movmulnegnopnot",
  24.                  "o16o32outpopporrclrcrrepretrolrorrsmsalsarsbb",
  25.                  "segshlshrst0st1st2st3st4st5st6st7stcstdstistr",
  26.                  "subtr3tr4tr5tr6tr7wrtxor", 9);
  27. variable nasm_kw_4 = strncat("arplbytecallcltscwdeemmsfabsfaddfbldfchsfcom",
  28.                  "fcosfdivfenifildfistfld1fldzfmulfnopfsinfstp",
  29.                  "fsubftstfxamfxchidivimulinsbinsdinswint3into",
  30.                  "invdiretjcxzjnaejnbejngejnlelahflgdtlidtlldt",
  31.                  "lmswlocklongloopmovdmovqnearpandpopapopfpush",
  32.                  "pxorreperepzresbresdreswretfretnsahfsetasetb",
  33.                  "setcsetesetgsetlsetosetpsetssetzsgdtshldshrd",
  34.                  "sidtsldtsmswtestverrverwwaitwordxaddxchg", 8);
  35. variable nasm_kw_5 = strncat("boundbswapcmpsbcmpsdcmpswcpuiddwordenterf2xm1",
  36.                  "faddpfbstpfclexfcompfdisifdivpfdivrffreefiadd",
  37.                  "ficomfidivfimulfinitfistpfisubfldcwfldpifmulp",
  38.                  "fpremfptanfsavefsqrtfstcwfstswfsubpfsubrfucom",
  39.                  "fyl2xiretdiretwjecxzleavelodsblodsdlodswloope",
  40.                  "loopzmovsbmovsdmovswmovsxmovzxoutsboutsdoutsw",
  41.                  "paddbpadddpaddwpandnpopadpopawpopfdpopfwpslld",
  42.                  "psllqpsllwpsradpsrawpsrldpsrlqpsrlwpsubbpsubd",
  43.                  "psubwpushapushfqwordrdmsrrdtscrepnerepnzscasb",
  44.                  "scasdscaswsetaesetbesetgesetlesetnasetnbsetnc",
  45.                  "setnesetngsetnlsetnosetnpsetnssetnzsetpesetpo",
  46.                  "shortstosbstosdstoswtimestwordwrmsrxlatb", 12);
  47. variable nasm_kw_6 = strncat("fcomppfdivrpficompfidivrfisubrfldenvfldl2e",
  48.                  "fldl2tfldlg2fldln2fpatanfprem1frstorfscale",
  49.                  "fsetpmfstenvfsubrpfucompinvlpgloopneloopnz",
  50.                  "paddsbpaddswpmulhwpmullwpsubsbpsubswpushad",
  51.                  "pushawpushfdpushfwsetnaesetnbesetngesetnle",
  52.                  "wbinvd", 6);
  53. variable nasm_kw_7 = strncat("cmpxchgfdecstpfincstpfrndintfsincosfucompp",
  54.                  "fxtractfyl2xp1paddusbpadduswpcmpeqbpcmpeqd",
  55.                  "pcmpeqwpcmpgtbpcmpgtdpcmpgtwpmaddwdpsubusb",
  56.                  "psubusw", 4);
  57. variable nasm_kw_8 = "packssdwpacksswbpackuswb";
  58. variable nasm_kw_9 = strcat("cmpxchg8bpunpckhbwpunpckhdqpunpckhwdpunpcklbw",
  59.                 "punpckldqpunpcklwd");
  60.  
  61. define nasm_is_kw {
  62.     variable word;
  63.     variable len;
  64.     variable list, min, max, pos, cmp;
  65.  
  66.     word = strlow(());
  67.     len = strlen(word);
  68.  
  69.     switch (len)
  70.     { case 0: return 1; }
  71.     { case 2: list = nasm_kw_2; }
  72.     { case 3: list = nasm_kw_3; }
  73.     { case 4: list = nasm_kw_4; }
  74.     { case 5: list = nasm_kw_5; }
  75.     { case 6: list = nasm_kw_6; }
  76.     { case 7: list = nasm_kw_7; }
  77.     { case 8: list = nasm_kw_8; }
  78.     { case 9: list = nasm_kw_9; }
  79.     { pop(); return 0; }
  80.  
  81.     min = -1;
  82.     max = strlen(list) / len;
  83.     while (max - min >= 2) {
  84.     pos = (max + min) / 2;
  85.     cmp = strcmp(word, substr(list, pos * len + 1, len));
  86.     if (cmp == 0)
  87.         return 1;               % it's a keyword
  88.     else if (cmp < 0)
  89.         max = pos;               % bottom half
  90.     else if (cmp > 0)
  91.         min = pos;               % top half
  92.     }
  93.     return 0;
  94. }
  95.  
  96. define nasm_indent_line() {
  97.     variable word, len, e;
  98.  
  99.     e = eolp();
  100.  
  101.     push_spot();
  102.     EXIT_BLOCK {
  103.     pop_spot();
  104.     if (what_column() <= Nasm_Instruction_Indent)
  105.         skip_white();
  106.     }
  107.  
  108.     bol_skip_white();
  109.  
  110.     if (orelse
  111.        {looking_at_char(';')}
  112.        {looking_at_char('#')}
  113.        {looking_at_char('[')}) {
  114.     bol_trim();
  115.     pop_spot();
  116.     EXIT_BLOCK {
  117.     }
  118.     return;
  119.     }
  120.  
  121.     push_mark();
  122.     skip_chars("0-9a-zA-Z_.");
  123.     word = bufsubstr();
  124.  
  125.     if (nasm_is_kw(word)) {
  126.     bol_trim();
  127.     whitespace(Nasm_Instruction_Indent);
  128.     } else {
  129.     push_spot();
  130.     bol_trim();
  131.     pop_spot();
  132.     len = strlen(word);
  133.     if (looking_at_char(':')) {
  134.         go_right_1();
  135.         len++;
  136.     }
  137.     trim();
  138.     if (e or not(eolp())) {
  139.         if (len >= Nasm_Instruction_Indent) {
  140.         pop();
  141.         whitespace(1);
  142.         } else
  143.         whitespace(Nasm_Instruction_Indent - len);
  144.         if (e) {
  145.         pop_spot();
  146.         eol();
  147.         push_spot();
  148.         }
  149.     }
  150.     }
  151. }
  152.  
  153. define nasm_newline_indent {
  154.     push_spot();
  155.     bol_skip_white();
  156.     if (eolp())
  157.     trim();
  158.     pop_spot();
  159.     newline();
  160.     nasm_indent_line();
  161. }
  162.  
  163. define nasm_bol_self_ins {
  164.     push_spot();
  165.     bskip_white();
  166.     bolp();
  167.     pop_spot();
  168.  
  169.     call("self_insert_cmd");
  170.  
  171.     % Grotty: force immediate update of the syntax highlighting.
  172.     insert_char('.');
  173.     deln(left(1));
  174.  
  175.     if (())
  176.     nasm_indent_line();
  177. }
  178.  
  179. define nasm_self_ins_ind {
  180.     call("self_insert_cmd");
  181.  
  182.     % Grotty: force immediate update of the syntax highlighting.
  183.     insert_char('.');
  184.     deln(left(1));
  185.  
  186.     nasm_indent_line();
  187. }
  188.  
  189. define nasm_insert_comment {
  190.     variable spc;
  191.  
  192.     bol_skip_white();
  193.     if (looking_at_char(';')) {
  194.     bol_trim();
  195.     go_right(1);
  196.     skip_white();
  197.     return;
  198.     } else if (eolp()) {
  199.     bol_trim();
  200.     insert("; ");
  201.     return;
  202.     }
  203.  
  204.     forever {
  205.     skip_chars("^;\n'\"");
  206.     if (looking_at_char('\'')) {
  207.         go_right_1();
  208.         skip_chars("^'\n");
  209.         !if (eolp())
  210.         go_right_1();
  211.     } else if (looking_at_char('\"')) {
  212.         go_right_1();
  213.         skip_chars("^\"\n");
  214.         !if (eolp())
  215.         go_right_1();
  216.     } else if (looking_at_char(';')) {
  217.         !if (bolp()) {
  218.         go_left_1();
  219.         trim();
  220.         !if (looking_at_char(';'))
  221.             go_right_1();
  222.         }
  223.         break;
  224.     } else {
  225.         break;
  226.     }
  227.     }
  228.     spc = Nasm_Comment_Column - what_column();
  229.     if (spc < Nasm_Comment_Space)
  230.     spc = Nasm_Comment_Space;
  231.     whitespace(spc);
  232.     if (eolp()) {
  233.     insert("; ");
  234.     } else {
  235.     go_right_1();
  236.     skip_white();
  237.     }
  238. }
  239.  
  240. $1 = "NASM";
  241. create_syntax_table($1);
  242.  
  243. define_syntax (";", "", '%', $1);
  244. define_syntax ("([", ")]", '(', $1);
  245. define_syntax ('"', '"', $1);
  246. define_syntax ('\'', '\'', $1);
  247. define_syntax ("0-9a-zA-Z_.@#", 'w', $1);
  248. define_syntax ("-+0-9a-fA-F.xXL", '0', $1);
  249. define_syntax (",:", ',', $1);
  250. define_syntax ('#', '#', $1);
  251. define_syntax ("|^&<>+-*/%~", '+', $1);
  252.  
  253. set_syntax_flags($1,1);
  254.  
  255. #ifdef HAS_DFA_SYNTAX
  256.  
  257. enable_highlight_cache("nasm.dfa", $1);
  258. define_highlight_rule(";.*$", "comment", $1);
  259. define_highlight_rule("[A-Za-z_\\.\\?][A-Za-z0-9_\\.\\?\\$#@~]*",
  260.               "Knormal", $1);
  261. define_highlight_rule("$([A-Za-z_\\.\\?][A-Za-z0-9_\\.\\?\\$#@~]*)?",
  262.               "normal", $1);
  263. define_highlight_rule("[0-9]+(\\.[0-9]*)?([Ee][\\+\\-]?[0-9]*)?",
  264.               "number", $1);
  265. define_highlight_rule("[0-9]+[QqBb]", "number", $1);
  266. define_highlight_rule("(0x|\\$[0-9A-Fa-f])[0-9A-Fa-f]*", "number", $1);
  267. define_highlight_rule("[0-9A-Fa-f]+[Hh]", "number", $1);
  268. define_highlight_rule("\"[^\"]*\"", "string", $1);
  269. define_highlight_rule("\"[^\"]*$", "string", $1);
  270. define_highlight_rule("'[^']*'", "string", $1);
  271. define_highlight_rule("'[^']*$", "string", $1);
  272. define_highlight_rule("[\\(\\)\\[\\],:]*", "delimiter", $1);
  273. define_highlight_rule("[\\|\\^&<>\\+\\-\\*/%~]*", "operator", $1);
  274. define_highlight_rule("^[ \t]*#", "PQpreprocess", $1);
  275. define_highlight_rule("@[0-9A-Za-z_\\.]*", "keyword1", $1);
  276. define_highlight_rule("[ \t]*", "normal", $1);
  277. define_highlight_rule(".", "normal", $1);
  278. build_highlight_table($1);
  279.  
  280. #endif
  281.  
  282. define_keywords_n($1, nasm_kw_2, 2, 0);
  283. define_keywords_n($1, nasm_kw_3, 3, 0);
  284. define_keywords_n($1, nasm_kw_4, 4, 0);
  285. define_keywords_n($1, nasm_kw_5, 5, 0);
  286. define_keywords_n($1, nasm_kw_6, 6, 0);
  287. define_keywords_n($1, nasm_kw_7, 7, 0);
  288. define_keywords_n($1, nasm_kw_8, 8, 0);
  289. define_keywords_n($1, nasm_kw_9, 9, 0);
  290.  
  291. !if (keymap_p ($1)) make_keymap ($1);
  292. definekey("nasm_bol_self_ins", ";", $1);
  293. definekey("nasm_bol_self_ins", "#", $1);
  294. definekey("nasm_bol_self_ins", "[", $1);
  295. definekey("nasm_self_ins_ind", ":", $1);
  296. definekey("nasm_insert_comment", "^[;", $1);
  297.  
  298. define nasm_mode {
  299.     set_mode("NASM", 4);
  300.     use_keymap ("NASM");
  301.     use_syntax_table ("NASM");
  302.     set_buffer_hook ("indent_hook", "nasm_indent_line");
  303.     set_buffer_hook ("newline_indent_hook", "nasm_newline_indent");
  304.     runhooks("nasm_mode_hook");
  305. }
  306.